home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 35
/
035.d81
/
mister mailman
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
10KB
|
255 lines
0 ifa=.thena=1:load"mailman.font",8,1
1 poke55,255:poke56,55:poke53272,(peek(53272)and240)or14
2 poke53248+21,.:gosub60100:clr
3 md$="[144] "
4 y=.:goto1170
5 mm=.:sm=.:m1=(peek(d)and15)
20 if((11eorm1)<>15)and(a>25)thena=a-5
50 if((07eorm1)<>15)and(a<250)thena=a+5
60 if((13eorm1)<>15)and(b<225)thenb=b+5
70 if((14eorm1)<>15)and(b>150)thenb=b-5
80 if((a>38)and(a<42))thensb=1:sm=1
82 if((a>113)and(a<117))thensb=2:sm=1
84 if((a>213)and(a<217))thensb=3:sm=1
90 if(sm)and(b=150)and(mm(sb))thenmm=1:sm=.:mm(sb)=.
100 return
110 pokev+21,33:goto410
120 pokev+21,34:goto410
130 q=9:iff<255thenf=f+6:goto320
140 goto320
150 q=9:iff>154thenf=f-6:goto320
160 goto320
170 x=5:k=1:rr=4:w=8:z=3:kj=1:ee=3
180 ifkj=1orkj=3orkj=5orkj=7thengosub1250:poke56295,6
190 a=25:b=200:c=0:pokev+23,0:pokev+29,0:e=170:f=b:g=b:h=b:r=0:pokev+42,9
195 mm(1)=1:mm(2)=1:mm(3)=1
200 i=250:j=i:fort=54272to54296:poket,0:next:poke54277,100:poke54296,15
210 s=54272:pokes+6,20:pokes+5,2:pokev+30,0:pokev+37,10:d=56320:pokes+4,129
220 o=187:print"[144][146]score:";y;tab(14)"mailmen:";x:pokev+21,255:poke2040,192
222 print"press q";
224 print"to quit"
230 ifkj=4thenpokev+29,254
240 ifkj=5thenpokev+23,254:pokev+29,254
250 ifkj=6thenpokev+29,224:pokev+23,0:f=160
260 ifkj=7thenpokev+44,0:f=150
270 aa=a:vj=vj+1:if(mm)thenmm=.:goto490
272 geta$:ifa$="q"ora$="[209]"thengosub60000
275 gosub5
276 geta$:ifa$="q"ora$="[209]"thengosub60000
280 pokes+1,3:pokes,o
290 pokev+30,.:pokev+6,i:pokev+10,j:pokev+7,e:pokev+11,f:ifj<12thenj=j+240
300 pokes,.:pokes+1,.:i=i-rr:ifb<ethene=e-ee
310 q=int(rnd(1)*z)+1:j=j-w:ifb>ethene=e+ee
320 onqgoto130,150,150,150:wait653,1,1:ifi<10theni=i+240
330 n=peek(v+30):if(nand1)=1andvj>9then610
340 ifaa>athenpoke2040,193
350 ifaa<athenpoke2040,192
360 pokev+0,a:pokev+1,b:goto270
370 vl=.:kj=kj+1:ifkj=2thenrr=6:w=10:z=5:gosub1480
380 ifkj=3thenrr=8:w=6:z=6
390 ifkj=4thenrr=2:w=8:gosub1480
400 ifkj=5thenrr=2
410 ifkj=6thenz=100:gosub1480
420 ifkj=7thenee=1:rr=12
430 ifkj=8thenrr=1:w=1:ee=1:gosub1480
440 ifkj=9then460
450 goto180
460 print"8 screen bonus!!!"
470 jv=1:pokes+1,37:pokes,42:gosub1010:kj=1:goto170
490 y=y+kj*100:fort=54272to54296:poket,0:next
500 ifa=40thenpokes+1547,9
510 ifa=115thenpokes+1556,9
520 ifa=215thenpokes+1569,9
530 print"[144][146]score:"y;tab(14)"mailmen:";x
540 s=54272:poke54296,15:pokes+5,200:pokes+6,100:pokes+1,35:pokes,3
550 pokes+4,33:fort=1to100:next:pokes+4,129
560 fort=1to30:next:pokes,0:pokes+1,0:vl=vl+a
570 ifvl=370then890
580 ifvl<>40andvl<>115andvl<>215andvl<>155andvl<>255andvl<>330then600
590 poke54296,9:goto280
600 pokev+37,2
610 vj=0:forl=54272to54296:pokel,0:next
620 fort=19to16step-1:pokes+6,100:pokes+5,100:poke2040,192
630 pokes+24,15:iftl=17thentl=195
640 iftl=16thentl=195
650 pokes+24,15:ift=19thentl=239
660 pokes+4,17:ift=18thentl=209
670 pokes+1,t:pokes,tl:fortt=1to50:next:pokes,0:pokes+1,0:fortt=1to30
680 next:poke2040,193:pokes+6,100:pokes+5,100:pokes+1,39:pokes,223
690 fortt=1to50:next:pokes,0:pokes+1,0:fortt=1to30:next:next:vl=0
700 rem oops!
710 poke2040,194:pokes+1,4:pokes,48:pokes+4,33:fortt=1to50:next
720 pokes+1,0:pokes,0:x=x-1:fortt=1to500:next:ifx=0then760
730 goto820
740 print"[144]score:";y;tab(14)"mailmen:";x
750 pokev+21,0:onkjgoto180,65535
760 print" game [157][157][157][157][157][157]over"
770 print"[147][144]";
775 print" final score:";y
780 print" you made it to screen";kj
790 print" would you like to play again? (y/n)"
800 pokev+21,0:fort=1to100:geta$:next
810 geta$:ifa$<>"n"anda$<>"[206]"anda$<>"y"anda$<>"[217]"then810
812 ifa$="y"ora$="[217]"thenprint:gosub60190:goto3
814 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
816 pokev+21,.:print"[147]";:ifer<>63thenend
818 poke53272,21:poke55,0:poke56,160
819 load "hello connect",8
820 vj=.:jv=1:fort=stos+24:poket,0:next
830 pokes+24,9:pokes+5,1:pokes+6,255:fort=1to4:pokes+1,71
840 pokes,12:pokes+4,33:pokes+1,1:pokes,12:pokes+4,128:fortt=1to50:next
850 ift<3theni=i-2:j=j-2:pokev+6,i:pokev+10,j:pokev+7,e:pokev+11,f
860 ift>2theni=i+2:j=j+2:pokev+6,i:pokev+10,j:pokev+7,e:pokev+11,f
870 pokes+1,.:pokes,.:tr=int(rnd(1)*5)*100:fortl=1totr:next:next
880 goto180
890 onkjgoto900,1060,900,1060,900,1060,900,1060,900,1060,900,1060
900 restore:pokes+24,15:pokes+5,100:pokes+6,100:fort=1to9:readtt,tu,tv
910 pokes,tt:pokes+1,tu:pokes+4,17:fortw=1totv:next:pokes+4,33
920 fortw=1totv:next:pokes+1,.:pokes,.:next
930 forl=54272to54296:pokel,0:next:pokes+24,15
940 pokes+5,25:pokes+6,255
950 fort=1to5:pokes+1,106:pokes,115:pokes+4,17
960 fortt=1to100:next:pokes+1,.:pokes,.
970 fortt=1to99:next:y=y+kj*50:print"[144]score:";y:fortr=1to150:next:next
980 ifvj<150andjv=0then1000
990 jv=.:goto370
1000 fort=1to300:next:print"time bonus!!!":pokes+1,238:pokes,248
1010 pokes+5,200:pokes+6,200:pokes+4,33:fort=1to600:next:pokes+1,0:yy=y
1020 fort=1toyy+200-vjstep100:y=y+1:print"[144]score:";y:next:fort=1to300:next:jv=.
1025 poke54296,.:next
1030 ifkj=9thenreturn
1040 goto370
1050 s=54272
1060 restore:fort=1to9:readtt,tu,tv:next
1070 forl=stos+24:pokel,0:next:pokes+24,15:pokes+5,100:pokes+6,100
1080 fort=1to5:readtt,tu,tv:pokes+1,tt:pokes,tu
1090 fortl=1totv:pokes+4,33:next
1100 fortl=1to20:pokes+4,17:next
1110 next:pokes,.:pokes+1,.
1120 goto370
1130 fort=1to99999:next
1140 stop
1150 pokev+21,0
1160 stop
1170 rem title screen stuff
1180 tt=192:fort=2040to2047:poket,tt:tt=tt+1:next
1190 restore:forj=1to42:readx:next
1200 v=53248:poke2040,192:poke2041,193:forj=12288to12734
1210 readx:pokej,x:next:fort=42to45:pokev+t,9:next
1220 pokev+39,6:pokev+40,6:pokev+41,6:pokev+28,7
1230 pokev+37,10:pokev+38,9:forj=12288to12478:readx:pokej,x:next:goto170
1240 pokev+21,31:goto170
1250 poke53265,11:poke53281,14:poke53280,6:print"[147]":pokev+21,0
1260 print"[147][155][169][223]"
1270 print"[155][169] [223]"
1280 print"[149][169][223]=[155][169] [223]"
1290 print"[149][169] [223]=[155][169] [223]"
1300 print"[149][169] [223]==[155] [223]"
1310 print"[149][169] [223]== "
1320 print"[149][169] [223][146][151][169] [223]=[146][149]== [255][255] "
1330 print"[149][129] [146][149][151][169] =[146]==[192][192][192][192][192][192][192]"
1340 print" [129] [255][129] [255][129] [151] == [255][255] ";
1350 print" [129][192][192][192][192][192][192][192][192] [156] ==[192][192][192][192][192][192][192] ";
1360 print" [129] [149][220][129] [156] [155][220][156] === [151][220] ";
1370 print" [129] [149][168][129] [156] [155][168][156] === [151][168] ";
1380 print" ";
1390 print" * * * ";
1400 print"[155] ^ ^ ^ ";
1410 print"[144][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"md$md$;
1413 print"[144] [164][164][164] [164][164][164] [164][164][164] [164][164][164] [164][164][164] [164][164][164] [164][164][164] [164][164][164]";
1414 print"[144] [163][163][163] [163][163][163] [163][163][163] [163][163][163] [163][163][163] [163][163][163] [163][163][163] [163][163][163]"md$md$md$;
1420 print"[155] ";
1430 print"[155] ";
1440 poke2023,160:poke56295,2:print"";
1450 fort=1to24:print" ";
1460 next:print" ";
1470 poke53265,27:return
1480 poke53281,14:poke53280,6:poke53265,11
1490 print"[147][155][169][223]"
1500 print"[155] [151] [156][169] [223]"
1510 print"[155][169] [223][151][169] [223][156][169] [223]"
1520